home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 5 / Amiga Tools 5.iso / tools / usefull / ww_makefontlist / make_fontlist.rexx < prev   
Encoding:
OS/2 REXX Batch file  |  1996-05-29  |  3.6 KB  |  164 lines
  1.     /* Make Font-List for Wordworth 5         */
  2.    /*  V 1.1e 22.5.96- 29.5.96 Heiko Kuschel */
  3.   /*   Placed in the Public Domain.         */
  4.  /*    Do with it what you want.           */
  5. /*     no warranties etc.                 */
  6.  
  7.  
  8.  
  9.  /* --------------------------------*/
  10. /*  Change Fontsize and Text here: */
  11.  
  12. FontSize="15pt"
  13. Text1="ABCDEFG HIJKLMNOP QRSTUVW XYZÄÖÜ"
  14. Text2="abcdefg hijklmnop qrstuvw xyzäöüß"
  15. Text3="12345 67890 !§$%& /()=?"
  16.  
  17. /* -----------------------------*/
  18.  
  19.  
  20.  
  21.  
  22. signal on error
  23. DO Num = 1 to 20
  24.     WwPort = "WORDWORTH." || Num
  25.     IF SHOW(PORTS, WwPort) THEN DO
  26.         Address Value WwPort
  27.         leave Num
  28.     end
  29. end
  30. if num=21 then do
  31.     echo "Wordworth not found! Program ends."
  32.     exit
  33.     end
  34. OPTIONS RESULTS
  35.  
  36. NEW
  37. PORTNAME=RESULT
  38. ADDRESS VALUE PORTNAME
  39. OPEN Filename "Env:Wordworth/WWFonts"
  40. Gettext
  41. Pathname=Result
  42. selectall
  43. delete
  44. Do Until NameOfFile~=""
  45.   REQUESTFILE title "Select name for Fontlist." path Pathname"//" File Fontlist
  46.   NameOfFile = Result
  47. end
  48. Ok=open(Fontsfile,Pathname"/UFST/FontList","R")   /* Count lines. not possible with WW5.*/
  49. Lines=-1
  50. do until eof(Fontsfile)
  51. Lines=Lines+1
  52. b=readln(Fontsfile)
  53. end
  54.  
  55.  
  56. if Lines > 80 then do
  57.     Dot="."
  58.     do until ((Parts<(Lines/5))&(Parts>=1))
  59.        wizardreq title "How many Parts?" label "You have installed "||Lines||" fonts." label "It may be that you don't have enough memory to" label "show all at once. Split the Fontlist in how many parts:" label "Recommended: at least "||((Lines%80)+1) textbox 1 "_Parts:" Button 1 "_Ok" Button "-1" "_Cancel"
  60.        if result = "-1" then do
  61.         exit
  62.        end
  63.        else do
  64.      nop
  65.        end
  66.        Wizard_Gettextbox (1)
  67.        Parts=Result
  68.        if (Parts>=(Lines/5))|(Parts<1) then do
  69.      Wizardreq Title "Problem" label "Your answer makes no sense." label "You have installed "||Lines||" fonts." Button 1 "_OK" Button "-1" "_Cancel"
  70.      if result = "-1" then do
  71.        Exit
  72.       end
  73.        end
  74.     end
  75.     if Parts>1 then do
  76.       wizardreq Title "Attention!" label "The parts will be named" label NameOfFile||".1 to" label NameOfFile||"."||Parts button 1 "_OK" button 2 "_Select new name" button "-1" "_Cancel"
  77.       PressedButton=Result
  78.       select
  79.       When PressedButton=2 then do Until NameOfFile~=""
  80.       REQUESTFILE title "Select name for fontlist." path Pathname"//" File Fontlist
  81.       NameOfFile = Result
  82.       end
  83.       When PressedButton="-1" then do
  84.     exit
  85.       end
  86.       otherwise do
  87.     nop
  88.       end
  89.       end
  90.     end
  91. end
  92. else do
  93.   Parts=1
  94. end
  95. Remains=0
  96. do Part = 1 to Parts
  97. open Filename Pathname"/UFST/FontList" force
  98. saveas name NameOfFile   /*Change name of File, so that Env:Wordworth/Fontlist is not changed by mistake.*/
  99. selectall
  100. sortascending
  101. position eof
  102. newparagraph
  103. if Part > 1 then do
  104.   gotoline (Lines%Parts)+(Part-2)*(Lines%Parts)-1
  105.   ctrldown
  106.   cursor Right
  107.   ctrldown
  108.   shiftdown
  109.   cursor up
  110.   ctrlup
  111.   shiftup
  112.   delete
  113.   delete
  114.   end
  115. if Part < Parts then do
  116.   gotoline (Lines%Parts)
  117.   ctrldown
  118.   cursor left
  119.   ctrldown
  120.   shiftdown
  121.   cursor down
  122.   ctrlup
  123.   shiftup
  124.   delete
  125.   end
  126. if Part=Parts Then Remains=(Lines//Parts)
  127. POSITION SOF
  128. FINDCHANGE ALL FIND ",\*,?¶" CHANGE "¶¶"
  129. POSITION SOF
  130. DO Counter=1 TO ((Lines%Parts)+Remains)
  131.   CTRLDOWN
  132.   CURSOR LEFT
  133.   CTRLDOWN
  134.   SHIFTDOWN
  135.   CURSOR RIGHT
  136.   GETTEXT
  137.   FONTNAME=RESULT
  138.   CTRLUP
  139.   SHIFTUP
  140.   CURSOR DOWN
  141.   FONT Name FONTNAME Size FontSize
  142.   TEXT Text1
  143.   NEWPARAGRAPH
  144.   TEXT Text2
  145.   NEWPARAGRAPH
  146.   TEXT Text3
  147.   CURSOR DOWN
  148. END
  149. if Parts=1 then do
  150.     Part=""
  151.     Dot=""
  152.     address command delete NameOfFile
  153.     end
  154. saveas name NameOfFile||Dot||Part
  155. end
  156. exit
  157.  
  158. error:
  159. echo "Sorry, an error has occured."
  160. echo "Line " Sigl", Number " RC
  161. echo errortext(RC)
  162. exit
  163. return
  164.